home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed12.d64 / challenge 3 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  229 lines
  1. 100 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
  2. 105 A$="3"
  3. 110 REM THIS MODULE BY: BILL CUMBERLAND                         89 11 04
  4. 115 WR=0:N=0
  5. 120 PRINT"[147]                                        [146]";
  6. 130 PRINT"          [199][201][204][204][201][193][206]'[211][160][195][200][193][204][204][197][206][199][197]           [146]";
  7. 140 PRINT"                                        [146]";
  8. 150 PRINT"                [213][206][201][212] "A$"                  [146]";
  9. 160 PRINT"                                        [146]":GOSUB910:GOSUB860
  10. 170 PRINT"          [201]NSTRUCTIONS?  [217]/[206]"
  11. 180 GETR$:IFR$<>"Y"ANDR$<>"N"THEN180
  12. 190 IFR$="N"THEN1000
  13. 200 PRINT"[147]              [201][206][211][212][210][213][195][212][201][207][206][211] [146]":GOSUB910:GOSUB860
  14. 210 PRINT"    [212]HE OBJECTIVE OF THIS EXERCISE IS
  15. 220 [153]"    TO TYPE IN THE CORRECT WORD THAT
  16. 230 PRINT"    IS MISSING IN A SENTENCE.
  17. 240 [153]"    (null)HERE ARE 20 QUESTIONS.
  18. 250 PRINT"    [217]OUR SCORE IS DISPLAYED AT THE
  19. 260 [153]"    CONCLUSION OF THE EXERCISE.":[141]930:[141]860
  20. 270 [153]"DEF    (null)HEN YOU ARE READY, PRESS THE            (null)(null)ATNLENVALCLOSEPEEKATN(null)CLOSEWAIT.
  21. 280 GETR$:IFR$<>CHR$(32)THEN280
  22. 290 GOTO1000
  23. 600 N=N+1:PRINT"[152][145][145][145]  [209]UESTION "N"":RETURN:GOSUB910:GOSUB860
  24. 700 REM <TIME UP> SOUND
  25. 705 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,8
  26. 710 POKE54277,8:POKE54278,255:POKE54276,23
  27. 715 FORZ=1TO3:F1=2
  28. 720 FORY=1TO3:F2=8
  29. 725 POKE54273,F1
  30. 730 FORX=1TO5:POKE54287,F2
  31. 735 F2=F2*1.4:NEXTX:F1=F1*1.5:NEXTY
  32. 740 FORW=1TO10:POKE54287,F2
  33. 745 F2=F2*1.05:NEXTW:NEXTZ:POKE54287,15
  34. 750 POKE54296,0:RETURN
  35. 780 PRINT"[150]     [208]RESS  [211][208][193][195][197][160][194][193][210] [146] TO CONTINUE."
  36. 790 GETR$:IFR$<>CHR$(32)THEN790
  37. 795 RETURN
  38. 800 REM <YES> SOUND
  39. 805 S=54272:FORE=STOS+28:POKEE,0:NEXT
  40. 810 POKE54296,15:POKE54277,42:POKE54278,250
  41. 815 POKE54276,23:POKE54273,23:POKE54272,191
  42. 820 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  43. 825 POKE54296,0:RETURN
  44. 830 REM <NO> SOUND
  45. 835 S=54272:FORE=STOS+28:POKEE,0:NEXT
  46. 840 POKE54296,15:POKE54277,18:POKE54278,242
  47. 845 POKE54276,33:POKE54273,4:POKE54272,48
  48. 850 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  49. 855 POKE54296,0:RETURN
  50. 860 REM <BLIP> SOUND
  51. 865 S=54272:FORE=STOS+28:POKEE,0:NEXT
  52. 870 POKE54296,7:POKE54277,42:POKE54278,250
  53. 875 POKE54276,23:POKE54273,23:POKE54272,191
  54. 880 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  55. 885 POKE54296,0:RETURN
  56. 900 REM TIMERS
  57. 905 FORT=1TO500:NEXT:RETURN
  58. 910 FORT=1TO1000:NEXT:RETURN
  59. 920 FORT=1TO2000:NEXT:RETURN
  60. 930 FORT=1TO3000:NEXT:RETURN
  61. 940 FORT=1TO4000:NEXT:RETURN
  62. 950 FORT=1TO5000:NEXT:RETURN
  63. 999 :
  64. 1000 GOSUB910:PRINT"[147]  [212]HAT TAKES A [164][164][164][164][164] OF TIME.":GOSUB600
  65. 1010 PRINT"[153]  [211]ELECT  [ LIT - LOOT - LOT ]":GOSUB860
  66. 1020 PRINT"  ":INPUT B$
  67. 1030 IFB$="LOT"THENPRINT"[153]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1050
  68. 1040 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  LOT [146].":GOSUB830:WR=WR+1
  69. 1045 GOSUB930:GOSUB780
  70. 1049 :
  71. 1050 GOSUB910:PRINT"[147]  [201] [164][164][164][164][164] IN THE CITY.":GOSUB600
  72. 1060 PRINT"[153]  [211]ELECT  [ LIVE - LEEVE - LEVE ]":GOSUB860
  73. 1070 PRINT"  ":INPUT B$
  74. 1080 IFB$="LIVE"THENPRINT"[158]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1100
  75. 1090 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  LIVE [146].":GOSUB830:WR=WR+1
  76. 1095 GOSUB930:GOSUB780
  77. 1099 :
  78. 1100 GOSUB910:PRINT"[147]  [196]AN RAN FURTHER [164][164][164][164][164] [202]OHN.":GOSUB600
  79. 1110 PRINT"[153]  [211]ELECT  [ THEN - THAN - TANE ]":GOSUB860
  80. 1120 PRINT"  ":INPUT B$
  81. 1130 IFB$="THAN"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1150
  82. 1140 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  THAN [146].":GOSUB830:WR=WR+1
  83. 1145 GOSUB930:GOSUB780
  84. 1149 :
  85. 1150 GOSUB910:PRINT"[147]  [215]HAT WILL WE DO [164][164][164][164][164]?":GOSUB600
  86. 1160 PRINT"[153]  [211]ELECT  [ TUDAY - TODEY- TODAY ]":GOSUB860
  87. 1170 PRINT"  ":INPUT B$
  88. 1180 IFB$="TODAY"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1200
  89. 1190 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  TODAY [146].":GOSUB830:WR=WR+1
  90. 1195 GOSUB930:GOSUB780
  91. 1199 :
  92. 1200 GOSUB910:PRINT"[147]  [197]LLEN INVITED [205]IKE FOR [164][164][164][164][164].":GOSUB600
  93. 1210 PRINT"[153]  [211]ELECT  [ DINER - DINNER - DINNOR ]":GOSUB860
  94. 1220 PRINT"  ":INPUT B$
  95. 1230 IFB$="DINNER"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1250
  96. 1240 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  DINNER [146].":GOSUB830:WR=WR+1
  97. 1245 GOSUB930:GOSUB780
  98. 1249 :
  99. 1250 GOSUB910:PRINT"[147]  [208]UT THE MONEY [164][164][164][164][164] THE BANK.":GOSUB600
  100. 1260 PRINT"[153]  [211]ELECT  [ ENTO - ONTO - INTO ]":GOSUB860
  101. 1270 PRINT"  ":INPUT B$
  102. 1280 IFB$="INTO"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1300
  103. 1290 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  INTO [146].":GOSUB830:WR=WR+1
  104. 1295 GOSUB930:GOSUB780
  105. 1299 :
  106. 1300 GOSUB910:PRINT"[147]  [200]E [164][164][164][164][164] WANTED AN ICE CREAM CONE.":GOSUB600
  107. 1310 PRINT"[153]  [211]ELECT  [ JIST - JEST - JUST ]":GOSUB860
  108. 1320 PRINT"  ":INPUT B$
  109. 1330 IFB$="JUST"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1350
  110. 1340 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  JUST [146].":GOSUB830:WR=WR+1
  111. 1345 GOSUB930:GOSUB780
  112. 1349 :
  113. 1350 GOSUB910:PRINT"[147]  [200]OW [164][164][164][164][164] IS THE MOON.":GOSUB600
  114. 1360 PRINT"[153]  [211]ELECT  [ BIG - BEG - BEEG ]":GOSUB860
  115. 1370 PRINT"  ":INPUT B$
  116. 1380 IFB$="BIG"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1400
  117. 1390 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORDS IS  BIG [146].":GOSUB830:WR=WR+1
  118. 1395 GOSUB930:GOSUB780
  119. 1399 :
  120. 1400 GOSUB910:PRINT"[147]  [215]HEN SHOULD [201] MAIL THE [164][164][164][164][164]?":GOSUB600
  121. 1410 PRINT"[153]  [211]ELECT  [ LITTER - LETTER - LETER ]":GOSUB860
  122. 1420 PRINT"  ":INPUT B$
  123. 1430 IFB$="LETTER"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1500
  124. 1440 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  LETTER [146].":GOSUB830:WR=WR+1
  125. 1445 GOSUB930:GOSUB780
  126. 1449 :
  127. 1450 GOSUB910:PRINT"[147]  [193]RE YOU [164][164][164][164][164] NOW?":GOSUB600
  128. 1460 PRINT"[153]  [211]ELECT  [ HAPPY - HEPPY - HAPPIE ]":GOSUB860
  129. 1470 PRINT"  ":INPUT B$
  130. 1480 IFB$="HAPPY"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1500
  131. 1490 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  HAPPY [146].":GOSUB830:WR=WR+1
  132. 1495 GOSUB930:GOSUB780
  133. 1499 :
  134. 1500 GOSUB910:PRINT"[147]  [202]ERRY HAD A [164][164][164][164][164] GOOD TIME.":GOSUB600
  135. 1510 PRINT"[153]  [211]ELECT  [ VEERY - VERY - VERRY ]":GOSUB860
  136. 1520 PRINT"  ":INPUT B$
  137. 1530 IFB$="VERY"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1550
  138. 1540 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  VERY [146].":GOSUB830:WR=WR+1
  139. 1545 GOSUB930:GOSUB780
  140. 1549 :
  141. 1550 GOSUB910:PRINT"[147]  [215]E NEED THREE TENNIS [164][164][164][164][164].":GOSUB600
  142. 1560 PRINT"[153]  [211]ELECT  [ BALLS - BALES - BELLS ]":GOSUB860
  143. 1570 PRINT"  ":INPUT B$
  144. 1580 IFB$="BALLS"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1600
  145. 1590 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  BALLS [146].":GOSUB830:WR=WR+1
  146. 1595 GOSUB930:GOSUB780
  147. 1599 :
  148. 1600 GOSUB910:PRINT"[147]  [212]HE PEN IS OVER [164][164][164][164][164].":GOSUB600
  149. 1610 PRINT"[153]  [211]ELECT  [ THEIR - THERE - THEY'RE ]":GOSUB860
  150. 1620 PRINT"  ":INPUT B$
  151. 1630 IFB$="THERE"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1650
  152. 1640 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  THERE [146].":GOSUB830:WR=WR+1
  153. 1645 GOSUB930:GOSUB780
  154. 1649 :
  155. 1650 GOSUB910:PRINT"[147]  [194]ILL WILL BE [164][164][164][164][164] TO HELP YOU.":GOSUB600
  156. 1660 PRINT"[153]  [211]ELECT  [ GLADE - GLED - GLAD ]":GOSUB860
  157. 1670 PRINT"  ":INPUT B$
  158. 1680 IFB$="GLAD"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1700
  159. 1690 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  GLAD [146].":GOSUB830:WR=WR+1
  160. 1695 GOSUB930:GOSUB780
  161. 1699 :
  162. 1700 GOSUB910:PRINT"[147]  [211]HE STOPPED [164][164][164][164][164] HE DIDN'T.":GOSUB600
  163. 1710 PRINT"[153]  [211]ELECT  [ BUTT - BUT - BET ]":GOSUB860
  164. 1720 PRINT"  ":INPUT B$
  165. 1730 IFB$="BUT"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1750
  166. 1740 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  BUT [146].":GOSUB830:WR=WR+1
  167. 1745 GOSUB930:GOSUB780
  168. 1749 :
  169. 1750 GOSUB910:PRINT"[147]  [196]O YOU LIKE [164][164][164][164][164] THIS COLOUR?":GOSUB600
  170. 1760 PRINT"[153]  [211]ELECT  [ THIS - THES - THISE ]":GOSUB860
  171. 1770 PRINT"  ":INPUT B$
  172. 1780 IFB$="THIS"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1800
  173. 1790 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  THIS [146].":GOSUB830:WR=WR+1
  174. 1795 GOSUB930:GOSUB780
  175. 1799 :
  176. 1800 GOSUB910:PRINT"[147]  [200]E IS A [164][164][164][164][164] AMONG MANY.":GOSUB600
  177. 1810 PRINT"[153]  [211]ELECT  [ MEN - MIN - MAN ]":GOSUB860
  178. 1820 PRINT"  ":INPUT B$
  179. 1830 IFB$="MAN"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1850
  180. 1840 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  MAN [146].":GOSUB830:WR=WR+1
  181. 1845 GOSUB930:GOSUB780
  182. 1849 :
  183. 1850 GOSUB910:PRINT"[147]  [215]HEN WILL THE [164][164][164][164][164] GO AWAY.":GOSUB600
  184. 1860 PRINT"[153]  [211]ELECT  [ SNOW - SNEW - SNOWE ]":GOSUB860
  185. 1870 PRINT"  ":INPUT B$
  186. 1880 IFB$="SNOW"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1900
  187. 1890 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  SNOW [146].":GOSUB830:WR=WR+1
  188. 1895 GOSUB930:GOSUB780
  189. 1899 :
  190. 1900 GOSUB910:PRINT"[147]  [201] LIKE THIS [164][164][164][164][164] OF ICE CREAM.":GOSUB600
  191. 1910 PRINT"[153]  [211]ELECT  [ KIN - KEND - KIND ]":GOSUB860
  192. 1920 PRINT"  ":INPUT B$
  193. 1930 IFB$="KIND"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO1950
  194. 1940 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  KIND [146].":GOSUB830:WR=WR+1
  195. 1945 GOSUB930:GOSUB780
  196. 1949 :
  197. 1950 GOSUB910:PRINT"[147]  [202]AMIE WILL [164][164][164][164][164] YOU A POSTCARD.":GOSUB600
  198. 1960 PRINT"[153]  [211]ELECT  [ CEND - SEND - SCENT ]":GOSUB860
  199. 1970 PRINT"  ":INPUT B$
  200. 1980 IFB$="SEND"THENPRINT"[159]   [195][207][210][210][197][195][212] [146]":GOSUB800:GOTO2000
  201. 1990 PRINT"   [206][207]! [146] [158] [212]HE CORRECT WORD IS  SEND [146].":GOSUB830:WR=WR+1
  202. 1995 GOSUB930:GOSUB780
  203. 1999 :
  204. 2000 POKE53280,0:POKE53281,0:POKE646,1:GOSUB700
  205. 2010 PRINT"[147]  [200]ERE IS YOUR SCORE:":GOSUB910:GOSUB860
  206. 2020 PRINT"  [217]OU GOT "20-WR" CORRECT ANSWERS
  207. 2030 [153]"  (null)OU MADE "WR" MISTAKES.":[141]920:[141]860
  208. 2040 [139]WR[178]0[167][153]"  VALXCELLENT!
  209. 2050 IFWR<2THENPRINT"  [199]OOD WORK!"
  210. 2060 IFWR>2THENPRINT"  [217]OU CAN DO BETTER!":GOSUB810:GOSUB860
  211. 2070 IFWR>2THENPRINT"  [212]RY AGAIN.
  212. 2080 [141]920:[141]780
  213. 2100 [153]"LOAD  STR$ECISION TIME:
  214. 2110 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS UNIT.
  215. 2115 [153]"  (null)RESS  LEN WAIT TO LOAD LENLEFT$ATN(null)(null)VAL(null)CHR$VALCLOSE4.
  216. 2120 PRINT"  [208]RESS  M [146] TO RETURN TO THE MENU.
  217. 2125 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]2125
  218. 2130 [139]R$[178]"R"[167][140]:[137]100
  219. 2135 [139]R$[178]"M"[167][140]:[137]2160
  220. 2140 [153]"LOAD (null)OADING LENLEFT$ATN(null)(null)VAL(null)CHR$VALCLOSE4.
  221. 2145 LOAD"CHALLENGE 4",8
  222. 2150 RUN
  223. 2155 END
  224. 2160 PRINT"[147] [210]ETURNING TO THE DISK MENU
  225. 2165 [147]"MENU",8
  226. 2170 [138]
  227. 2175 [128]
  228. 2200 [143] WHC 91:01:05
  229.